home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / mac / oztex / mf.hqx / Metafont / mfinputs / test0.mf < prev    next >
Text File  |  1994-08-19  |  1KB  |  27 lines
  1. cmchar "The letter m";
  2. beginchar("m",15u#,x_height#,0);
  3. italcorr .5[bar_height#,x_height#]*slant-serif_fit#+.5stem#-2u#;
  4. adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#);
  5. numeric shaved_stem; shaved_stem=hround(mfudged.stem-2stem_corr);
  6. pickup tiny.nib; pos1(mfudged.stem,0); pos2(mfudged.stem,0);
  7. pos1'(shaved_stem,0); pos2'(shaved_stem,0);
  8. pos3(mfudged.stem,0); pos5(mfudged.stem,0);
  9. lft x1l=hround(2.5u-.5stem); x1l=x1'l=x2l=x2'l;
  10. lft x3l=hround(.5w-.5stem); x5-x3=x3-x1;
  11. if not monospace: r:=hround(x5+x1)-l; fi  % change width for better fit
  12. top y1=h+min(oo,serif_drop); bot y2=0; y1=y1'; y2=y2';
  13. filldraw stroke z1'e--z2'e;  % left stem
  14. h_stroke(2,a,3,4);  % left arch and middle stem
  15. h_stroke(4,b,5,6);  % right arch and right stem
  16. if serifs: sloped_serif.l(1',2',c,1/3,jut,serif_drop); % upper left serif
  17.  numeric inner_jut; pickup tiny.nib;
  18.  if rt x2r+jut+.5u+1<=lft x4l-jut: inner_jut=jut;
  19.  else: rt x2r+jut+.5u+1=lft x4l-inner_jut; fi
  20.  dish_serif(2,1,d,1/3,jut,e,1/3,jut); % lower left serif
  21.  dish_serif(4,3,f,1/3,inner_jut,g,1/3,jut); % lower middle serif
  22.  dish_serif(6,5,h,1/3,inner_jut,i,1/3,jut); fi % lower right serif
  23. penlabels(1,2,3,4,5,6); endchar;
  24.  
  25.  
  26.  
  27.